home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / ap102.arc / MPTRCV.SLT < prev    next >
Text File  |  1991-04-17  |  944b  |  41 lines
  1. str mptcmd [127];
  2. main()
  3.  
  4. {
  5.     str port [4];
  6.     int ret, c;
  7.     str protocol[5]="mpt";    // puma users: change "mpt" to "puma"
  8.  
  9.     mptcmd="A- F+ N+ M- P";
  10.     itos (get_port(), port);
  11.     strcat (mptcmd, port);        // add port
  12.     strcat (mptcmd, " S0");    // add speed (0=auto adjust)
  13.     if (_zmod_rcrash) strcat (mptcmd, " R+");    // resume file
  14.     else strcat (mptcmd, " O+");            // overwrite file
  15.     if (_sound_on) strcat (mptcmd, " B+");        // beep when finished
  16.     else strcat (mptcmd, " B-");            // silence
  17.     strcat (mptcmd, " X+ r ");
  18.     strcat (mptcmd, _down_dir);
  19.     prints (mptcmd);
  20.     ret=run (protocol,mptcmd,0);
  21.     if (_sound_on) {
  22.         if (ret) {
  23.             // command failed.  descending tones
  24.             for (c=1; c<=3; ++c) {
  25.                 tone (790,17);
  26.                 tone (657,17);
  27.                 tone (530,17);
  28.             }
  29.         }
  30.         else {
  31.             // command succeeded.  ascending tones
  32.             for (c=1; c<=3; ++c) {
  33.                 tone (530,17);
  34.                 tone (657,17);
  35.                 tone (790,17);
  36.             }
  37.         }
  38.     }
  39.     return (0);
  40. }
  41.